home *** CD-ROM | disk | FTP | other *** search
/ Clickx 115 / Clickx 115.iso / software / tools / windows / tails-i386-0.16.iso / live / filesystem.squashfs / usr / share / perl5 / URI / socks.pm < prev    next >
Encoding:
Perl POD Document  |  2010-07-23  |  487 b   |  26 lines
  1. ##############################
  2. package URI::socks;
  3. require URI::http;
  4. use URI::Escape;
  5. #URI::implementor(socks => 'URI::http');
  6. our @ISA = qw(URI::http);
  7.  
  8. # [RT 48172] Adding user/pass functionality
  9. sub user {
  10.     my $self = shift;
  11.  
  12.     my $userinfo = $self->userinfo();
  13.     my($user) = split(/:/, $userinfo);
  14.     uri_unescape($user);
  15. }
  16.  
  17. sub pass {
  18.     my $self = shift;
  19.  
  20.     my $userinfo = $self->userinfo();
  21.     my(undef, $pass) = split(/:/, $userinfo);
  22.     uri_unescape($pass);
  23. }
  24.  
  25. 1;
  26.